﻿Public Class xtf_ABMensayo03

    Dim ulg_row As DataRow
    Dim obj_ensayo03 As cls_ensayo03_ = Nothing

    Public Sub New()
        InitializeComponent()


        Cargarcliente_()
        Cargarcentrocostoorden_()
        'Cargarequipo_()
        Cargarcomponenteensayar_()
        Cargarnorma_()
        Cargarcriterio_()

        Cargarevaluacionmetodo_()
        Cargaracoplante_()
        CargarequipoEND_()

        CargarInspector_()
        CargarEvaluador_()
        Cargaringresado_()
        CargarRealizado_()

        AgregarValidaciones()

        'TEMPORAL Actualizo la numeracion
        Dim ensayosubtipo As New cls_ensayosubtipo_
        If ensayosubtipo.BuscarXidmodulo("001072001") Then
            txt_informe.EditValue = ensayosubtipo.numero
            txt_informe.Properties.Mask.EditMask = ""
            If ensayosubtipo.ensayotipo.siglaUSA Then txt_informe.Properties.Mask.EditMask &= ensayosubtipo.ensayotipo.sigla
            If ensayosubtipo.ensayotipo.siglaENGUSA Then txt_informe.Properties.Mask.EditMask &= ensayosubtipo.ensayotipo.siglaENG

            If ensayosubtipo.siglaUSA Then txt_informe.Properties.Mask.EditMask &= ensayosubtipo.sigla
            If ensayosubtipo.siglaENGUSA Then txt_informe.Properties.Mask.EditMask &= ensayosubtipo.siglaENG

            txt_informe.Properties.Mask.EditMask &= "-" & ensayosubtipo.numeroformato

            txt_informe.Properties.Mask.UseMaskAsDisplayFormat = True

        End If
        If System.IO.File.Exists(config_empresa.logochico) Then
            Dim logoempresa As Image = Image.FromFile(config_empresa.logochico)
            pic_empresaLogo.Image = logoempresa
        End If
    End Sub

    Public Overrides Sub CargarObjetos()
        Cargarcliente_()
        Cargarcentrocostoorden_()
        'Cargarequipo_()
        Cargarcomponenteensayar_()
        Cargarnorma_()
        Cargarcriterio_()

        Cargarevaluacionmetodo_()
        Cargaracoplante_()
        CargarequipoEND_()

        CargarInspector_()
        CargarEvaluador_()
        Cargaringresado_()
        CargarRealizado_()
    End Sub

    Private Sub CargarRealizado_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_realizado.EditValue
        Dim realizado_ As New Collections.Generic.List(Of cls_usuario_)
        Dim usuario_ As New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Personal)
        If Not IsNothing(usuario_.Items) Then
            realizado_.AddRange(usuario_.Items)
        End If
        usuario_ = New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Proveedor)
        If Not IsNothing(usuario_.Items) Then
            realizado_.AddRange(usuario_.Items)
        End If
        usuario_ = New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Usuario)
        If Not IsNothing(usuario_.Items) Then
            realizado_.AddRange(usuario_.Items)
        End If
        If realizado_.Count = 0 Then realizado_ = Nothing
        cargarCombo(cbo_realizado, realizado_, False, True)
        cbo_realizado.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_realizado.EditValue)
    End Sub
    Private Sub Cargaringresado_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_ingresado.EditValue
        Dim ingresado_ As New Collections.Generic.List(Of cls_usuario_)
        Dim usuario_ As New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Personal)
        If Not IsNothing(usuario_.Items) Then
            ingresado_.AddRange(usuario_.Items)
        End If
        usuario_ = New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Proveedor)
        If Not IsNothing(usuario_.Items) Then
            ingresado_.AddRange(usuario_.Items)
        End If
        usuario_ = New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Usuario)
        If Not IsNothing(usuario_.Items) Then
            ingresado_.AddRange(usuario_.Items)
        End If
        If ingresado_.Count = 0 Then ingresado_ = Nothing
        cargarCombo(cbo_ingresado, ingresado_, False, False)
        cbo_ingresado.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_ingresado.EditValue)
    End Sub
    Private Sub CargarInspector_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_inspector.EditValue
        Dim personal_ As New cls_personal_
        Dim parametro As New cls_config_parametro_
        parametro.Buscar("cargoInspector")
        personal_.CargarXidcargo(parametro.valor)
        cargarCombo(cbo_inspector, personal_.Items, False, True)
        cbo_inspector.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_inspector.EditValue)
    End Sub
    Private Sub CargarEvaluador_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_evaluador.EditValue
        Dim personal_ As New cls_personal_
        Dim parametro As New cls_config_parametro_
        parametro.Buscar("cargoEvaluador")
        personal_.CargarXidcargo(parametro.valor)
        cargarCombo(cbo_evaluador, personal_.Items, False, True)
        cbo_evaluador.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_evaluador.EditValue)
    End Sub
    Private Sub Cargarcliente_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_cliente.EditValue
        Dim cliente_ As New cls_cliente_
        cliente_.CargarTodos(True)
        cargarCombo(cbo_cliente, cliente_.Items)
        cbo_cliente.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_cliente.EditValue)
    End Sub
    Private Sub Cargarcentrocostoorden_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_centrocostoorden.EditValue
        Dim centrocostoorden_ As New cls_centrocostoorden_
        centrocostoorden_.CargarXtipo(opt_obra.SelectedIndex)
        cargarCombo(cbo_centrocostoorden, centrocostoorden_.Items, True, True)
        cbo_centrocostoorden.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_centrocostoorden.EditValue)
    End Sub

    Private Sub Cargarequipo_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_equipo.EditValue
        Dim equipo_ As New cls_equipo_
        If cbo_centrocostoorden.EditValue <> 0 Then
            equipo_.CargarXidobra(cbo_centrocostoorden.EditValue)
            cargarCombo(cbo_equipo, equipo_.Items, False, True)
        Else
            cargarCombo(cbo_equipo, equipo_.Items, False, True)
        End If
        cbo_equipo.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_equipo.EditValue)
    End Sub

    Private Sub Cargarcomponenteensayar_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_componenteensayar.EditValue
        Dim componenteensayar_ As New cls_componenteensayar_
        componenteensayar_.CargarTodos()
        cargarCombo(cbo_componenteensayar, componenteensayar_.Items, False, True)
        cbo_componenteensayar.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_componenteensayar.EditValue)
    End Sub
    Private Sub Cargarnorma_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_norma.EditValue
        Dim norma_ As New cls_criterionorma_
        norma_.CargarNormas()
        cargarCombo(cbo_norma, norma_.Items, False, True)
        cbo_norma.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_norma.EditValue)
    End Sub

    Private Sub Cargarcriterio_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_criterio.EditValue
        Dim criterio_ As New cls_criterionorma_
        criterio_.CargarCriterios()
        cargarCombo(cbo_criterio, criterio_.Items, False, True)
        cbo_criterio.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_criterio.EditValue)
    End Sub

    Private Sub CargarequipoEND_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_idequipoEND.EditValue
        Dim equipoEND_ As New cls_equipoEND_
        equipoEND_.CargarTodos()
        cargarCombo(cbo_idequipoEND, equipoEND_.Items, False, True)
        cbo_idequipoEND.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_idequipoEND.EditValue)
    End Sub
   
    Private Sub Cargaracoplante_()
        Dim tmp_obj1 As Integer = 0
        Dim tmp_obj2 As Integer = 0
        Dim tmp_obj3 As Integer = 0
        tmp_obj1 = cbo_Cidacoplante1.EditValue
        tmp_obj2 = cbo_Cidacoplante2.EditValue
        tmp_obj3 = cbo_Cidacoplante3.EditValue
        Dim acoplante_ As New cls_acoplante_
        acoplante_.CargarTodos()
        cargarCombo(cbo_Cidacoplante1, acoplante_.Items, False, True)
        cargarCombo(cbo_Cidacoplante2, acoplante_.Items, False, True)
        cargarCombo(cbo_Cidacoplante3, acoplante_.Items, False, True)
        cbo_Cidacoplante1.EditValue = IIf(tmp_obj1 <> 0, tmp_obj1, cbo_Cidacoplante1.EditValue)
        cbo_Cidacoplante2.EditValue = IIf(tmp_obj2 <> 0, tmp_obj2, cbo_Cidacoplante2.EditValue)
        cbo_Cidacoplante3.EditValue = IIf(tmp_obj3 <> 0, tmp_obj3, cbo_Cidacoplante3.EditValue)
    End Sub

    Private Sub Cargarevaluacionmetodo_()
        Dim tmp_obj1 As Integer = 0
        Dim tmp_obj2 As Integer = 0
        Dim tmp_obj3 As Integer = 0
        tmp_obj1 = cbo_Cidevaluacionmetodo1.EditValue
        tmp_obj2 = cbo_Cidevaluacionmetodo2.EditValue
        tmp_obj3 = cbo_Cidevaluacionmetodo3.EditValue
        Dim evaluacionmetodo_ As New cls_evaluacionmetodo_
        evaluacionmetodo_.CargarTodos()
        cargarCombo(cbo_Cidevaluacionmetodo1, evaluacionmetodo_.Items, False, True)
        cargarCombo(cbo_Cidevaluacionmetodo2, evaluacionmetodo_.Items, False, True)
        cargarCombo(cbo_Cidevaluacionmetodo3, evaluacionmetodo_.Items, False, True)
        cbo_Cidevaluacionmetodo1.EditValue = IIf(tmp_obj1 <> 0, tmp_obj1, cbo_Cidevaluacionmetodo1.EditValue)
        cbo_Cidevaluacionmetodo2.EditValue = IIf(tmp_obj2 <> 0, tmp_obj2, cbo_Cidevaluacionmetodo2.EditValue)
        cbo_Cidevaluacionmetodo3.EditValue = IIf(tmp_obj3 <> 0, tmp_obj3, cbo_Cidevaluacionmetodo3.EditValue)
    End Sub

    Public Shadows Sub Nuevo(ByRef listado As Form)
        Try
            frm_listado = listado
            Me.Text = CType(frm_listado, xtf_ListadoBase).lbl_modulo.Text & " - Nuevo"
            obj_ensayo03 = New cls_ensayo03_
            btn_Registro.Enabled = False
            Me.Show()

            dtp_fecha.DateTime = Now
            dtp_fechaEvaluador.DateTime = Now
            dtp_fechaInspector.DateTime = Now
            cbo_ingresado.EditValue = UsuarioLOG.idusuario
        Catch ex As Exception
            'Dim frmError As New frm_ErrorManager(ex.Message)
        End Try
    End Sub

    Public Shadows Sub Modificar(ByRef ensayo03 As cls_ensayo03_, ByRef listado As Form, ByRef row As DataRow)
        If IsNothing(obj_ensayo03) Then
            obj_ensayo03 = New cls_ensayo03_
        End If
        obj_ensayo03 = ensayo03
        frm_listado = listado
        ulg_row = row : bbi_imprimir.Enabled = True


        txt_ID.Text = obj_ensayo03.idensayo03
        txt_informe.Text = obj_ensayo03.numero
        Me.Text = CType(frm_listado, xtf_ListadoBase).lbl_modulo.Text & " - " & txt_informe.Text
        dtp_fecha.DateTime = obj_ensayo03.fecha
        cbo_cliente.EditValue = obj_ensayo03.idcliente

        If Not IsNothing(obj_ensayo03.centrocostoorden) Then
            opt_obra.SelectedIndex = obj_ensayo03.centrocostoorden.tipo
        End If
        cbo_centrocostoorden.EditValue = obj_ensayo03.idcentrocostoorden

        cbo_equipo.EditValue = obj_ensayo03.idequipo
        cbo_componenteensayar.EditValue = obj_ensayo03.idcomponenteensayar
        txt_identificacion.Text = obj_ensayo03.identificacion
        txt_procedimiento.Text = obj_ensayo03.procedimiento
        cbo_norma.EditValue = obj_ensayo03.idnorma
        cbo_criterio.EditValue = obj_ensayo03.idcriterio

        cbo_idequipoEND.EditValue = obj_ensayo03.idequipoEND
        txt_equipoENDserie.Text = obj_ensayo03.equipoENDserie

        txt_Cposicion1.Text = obj_ensayo03.Cposicion1
        txt_Cidentificacion1.Text = obj_ensayo03.Cidentificacion1
        txt_Cserie1.Text = obj_ensayo03.Cserie1
        txt_Cfrecuencia1.Text = obj_ensayo03.Cfrecuencia1
        txt_Ctamaño1.Text = obj_ensayo03.Ctamaño1
        txt_Ctipolargocaño1.Text = obj_ensayo03.Ctipolargocaño1
        cbo_Cidacoplante1.EditValue = obj_ensayo03.Cidacoplante1
        txt_Czona1.Text = obj_ensayo03.Czona1
        chk_Czonico1.Checked = obj_ensayo03.Czonico1
        cbo_Cidevaluacionmetodo1.EditValue = obj_ensayo03.Cidevaluacionmetodo1
        txt_Cbloquecalibracion1.Text = obj_ensayo03.Cbloquecalibracion1
        txt_Creflector1.Text = obj_ensayo03.Creflector1
        txt_Ccorreciontransferencia1.Text = obj_ensayo03.Ccorreciontransferencia1
        txt_Cnivelcurvaregistro1.Text = obj_ensayo03.Cnivelcurvaregistro1
        txt_CS1.Text = obj_ensayo03.CS1
        txt_Cdelta1.Text = obj_ensayo03.Cdelta1

        txt_Cposicion2.Text = obj_ensayo03.Cposicion2
        txt_Cidentificacion2.Text = obj_ensayo03.Cidentificacion2
        txt_Cserie2.Text = obj_ensayo03.Cserie2
        txt_Cfrecuencia2.Text = obj_ensayo03.Cfrecuencia2
        txt_Ctamaño2.Text = obj_ensayo03.Ctamaño2
        txt_Ctipolargocaño2.Text = obj_ensayo03.Ctipolargocaño2
        cbo_Cidacoplante2.EditValue = obj_ensayo03.Cidacoplante2
        txt_Czona2.Text = obj_ensayo03.Czona2
        chk_Czonico2.Checked = obj_ensayo03.Czonico2
        cbo_Cidevaluacionmetodo2.EditValue = obj_ensayo03.Cidevaluacionmetodo2
        txt_Cbloquecalibracion2.Text = obj_ensayo03.Cbloquecalibracion2
        txt_Creflector2.Text = obj_ensayo03.Creflector2
        txt_Ccorreciontransferencia2.Text = obj_ensayo03.Ccorreciontransferencia2
        txt_Cnivelcurvaregistro2.Text = obj_ensayo03.Cnivelcurvaregistro2
        txt_CS2.Text = obj_ensayo03.CS2
        txt_Cdelta2.Text = obj_ensayo03.Cdelta2

        txt_Cposicion3.Text = obj_ensayo03.Cposicion3
        txt_Cidentificacion3.Text = obj_ensayo03.Cidentificacion3
        txt_Cserie3.Text = obj_ensayo03.Cserie3
        txt_Cfrecuencia3.Text = obj_ensayo03.Cfrecuencia3
        txt_Ctamaño3.Text = obj_ensayo03.Ctamaño3
        txt_Ctipolargocaño3.Text = obj_ensayo03.Ctipolargocaño3
        cbo_Cidacoplante3.EditValue = obj_ensayo03.Cidacoplante3
        txt_Czona3.Text = obj_ensayo03.Czona3
        chk_Czonico3.Checked = obj_ensayo03.Czonico3
        cbo_Cidevaluacionmetodo3.EditValue = obj_ensayo03.Cidevaluacionmetodo3
        txt_Cbloquecalibracion3.Text = obj_ensayo03.Cbloquecalibracion3
        txt_Creflector3.Text = obj_ensayo03.Creflector3
        txt_Ccorreciontransferencia3.Text = obj_ensayo03.Ccorreciontransferencia3
        txt_Cnivelcurvaregistro3.Text = obj_ensayo03.Cnivelcurvaregistro3
        txt_CS3.Text = obj_ensayo03.CS3
        txt_Cdelta3.Text = obj_ensayo03.Cdelta3

        txt_nindicacion.Text = obj_ensayo03.nindicacion
        txt_palpador.Text = obj_ensayo03.palpador
        txt_palpadorposicion.Text = obj_ensayo03.palpadorposicion
        txt_sonico.Text = obj_ensayo03.sonico
        txt_x.Text = obj_ensayo03.x
        txt_y.Text = obj_ensayo03.y
        txt_z.Text = obj_ensayo03.z
        chk_longitud.Checked = obj_ensayo03.longitud
        chk_transversal.Checked = obj_ensayo03.transversal
        chk_superficieplana.Checked = obj_ensayo03.superficieplana
        txt_exesonivelregistro.Text = obj_ensayo03.exesonivelregistro
        txt_registrolongitud.Text = obj_ensayo03.registrolongitud
        chk_resultado1.Checked = obj_ensayo03.resultado

        pic_croquis.Image = obj_ensayo03.croquis
        txt_croquisnotas.Text = obj_ensayo03.croquisnotas
        txt_notas.Text = obj_ensayo03.notas
        opt_informeestado.SelectedIndex = obj_ensayo03.informeestado
        dtp_fechaEvaluador.DateTime = obj_ensayo03.evaluadorfecha
        dtp_fechaInspector.DateTime = obj_ensayo03.inspectorfecha
        cbo_inspector.EditValue = obj_ensayo03.idinspector
        cbo_evaluador.EditValue = obj_ensayo03.idevaluador
        cbo_realizado.EditValue = obj_ensayo03.idusuariorealizado
        cbo_ingresado.EditValue = obj_ensayo03.idusuarioingresado

        btn_Registro.Enabled = True

        'obj_ensayo03.localidad = Nothing
        Me.Show()

    End Sub

    Public Overrides Function ComprobarDatos() As Boolean

        If dtp_fecha.DateTime > dtp_fechaEvaluador.DateTime Then
            ErrManagerShow("Fecha invalida.", "La fecha de Evaluacion no puede ser menor a la fecha del documento", xtf_ErrManagerAlerta.errManagerImg.img_Advertencia, xtf_ErrManagerAlerta.errManagerBtn.btn_Aceptar)
            Return False
        End If
        If dtp_fecha.DateTime > dtp_fechaInspector.DateTime Then
            ErrManagerShow("Fecha invalida.", "La fecha de Inspección no puede ser menor a la fecha del documento", xtf_ErrManagerAlerta.errManagerImg.img_Advertencia, xtf_ErrManagerAlerta.errManagerBtn.btn_Aceptar)
            Return False
        End If
        Return True
    End Function

    Public Shadows Sub btn_Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Guardar.Click
        If ComprobarDatos() Then

            'obj_ensayo03.idensayo03 = txt_ID.Text
            obj_ensayo03.numero = txt_informe.EditValue
            obj_ensayo03.fecha = dtp_fecha.DateTime
            obj_ensayo03.idcliente = cbo_cliente.EditValue
            obj_ensayo03.idcentrocostoorden = cbo_centrocostoorden.EditValue
            obj_ensayo03.idequipo = cbo_equipo.EditValue
            obj_ensayo03.idcomponenteensayar = cbo_componenteensayar.EditValue
            obj_ensayo03.identificacion = txt_identificacion.Text
            obj_ensayo03.procedimiento = txt_procedimiento.Text
            obj_ensayo03.idnorma = cbo_norma.EditValue
            obj_ensayo03.idcriterio = cbo_criterio.EditValue


            obj_ensayo03.idequipoEND = cbo_idequipoEND.EditValue
            obj_ensayo03.equipoENDserie = txt_equipoENDserie.Text

            obj_ensayo03.Cposicion1 = txt_Cposicion1.Text
            obj_ensayo03.Cidentificacion1 = txt_Cidentificacion1.Text
            obj_ensayo03.Cserie1 = txt_Cserie1.Text
            obj_ensayo03.Cfrecuencia1 = txt_Cfrecuencia1.Text
            obj_ensayo03.Ctamaño1 = txt_Ctamaño1.Text
            obj_ensayo03.Ctipolargocaño1 = txt_Ctipolargocaño1.Text
            obj_ensayo03.Cidacoplante1 = cbo_Cidacoplante1.EditValue
            obj_ensayo03.Czona1 = txt_Czona1.Text
            obj_ensayo03.Czonico1 = chk_Czonico1.Checked
            obj_ensayo03.Cidevaluacionmetodo1 = cbo_Cidevaluacionmetodo1.EditValue
            obj_ensayo03.Cbloquecalibracion1 = txt_Cbloquecalibracion1.Text
            obj_ensayo03.Creflector1 = txt_Creflector1.Text
            obj_ensayo03.Ccorreciontransferencia1 = txt_Ccorreciontransferencia1.Text
            obj_ensayo03.Cnivelcurvaregistro1 = txt_Cnivelcurvaregistro1.Text
            obj_ensayo03.CS1 = txt_CS1.Text
            obj_ensayo03.Cdelta1 = txt_Cdelta1.Text

            obj_ensayo03.Cposicion2 = txt_Cposicion2.Text
            obj_ensayo03.Cidentificacion2 = txt_Cidentificacion2.Text
            obj_ensayo03.Cserie2 = txt_Cserie2.Text
            obj_ensayo03.Cfrecuencia2 = txt_Cfrecuencia2.Text
            obj_ensayo03.Ctamaño2 = txt_Ctamaño2.Text
            obj_ensayo03.Ctipolargocaño2 = txt_Ctipolargocaño2.Text
            obj_ensayo03.Cidacoplante2 = cbo_Cidacoplante2.EditValue
            obj_ensayo03.Czona2 = txt_Czona2.Text
            obj_ensayo03.Czonico2 = chk_Czonico2.Checked
            obj_ensayo03.Cidevaluacionmetodo2 = cbo_Cidevaluacionmetodo2.EditValue
            obj_ensayo03.Cbloquecalibracion2 = txt_Cbloquecalibracion2.Text
            obj_ensayo03.Creflector2 = txt_Creflector2.Text
            obj_ensayo03.Ccorreciontransferencia2 = txt_Ccorreciontransferencia2.Text
            obj_ensayo03.Cnivelcurvaregistro2 = txt_Cnivelcurvaregistro2.Text
            obj_ensayo03.CS2 = txt_CS2.Text
            obj_ensayo03.Cdelta2 = txt_Cdelta2.Text

            obj_ensayo03.Cposicion3 = txt_Cposicion3.Text
            obj_ensayo03.Cidentificacion3 = txt_Cidentificacion3.Text
            obj_ensayo03.Cserie3 = txt_Cserie3.Text
            obj_ensayo03.Cfrecuencia3 = txt_Cfrecuencia3.Text
            obj_ensayo03.Ctamaño3 = txt_Ctamaño3.Text
            obj_ensayo03.Ctipolargocaño3 = txt_Ctipolargocaño3.Text
            obj_ensayo03.Cidacoplante3 = cbo_Cidacoplante3.EditValue
            obj_ensayo03.Czona3 = txt_Czona3.Text
            obj_ensayo03.Czonico3 = chk_Czonico3.Checked
            obj_ensayo03.Cidevaluacionmetodo3 = cbo_Cidevaluacionmetodo3.EditValue
            obj_ensayo03.Cbloquecalibracion3 = txt_Cbloquecalibracion3.Text
            obj_ensayo03.Creflector3 = txt_Creflector3.Text
            obj_ensayo03.Ccorreciontransferencia3 = txt_Ccorreciontransferencia3.Text
            obj_ensayo03.Cnivelcurvaregistro3 = txt_Cnivelcurvaregistro3.Text
            obj_ensayo03.CS3 = txt_CS3.Text
            obj_ensayo03.Cdelta3 = txt_Cdelta3.Text

            obj_ensayo03.nindicacion = txt_nindicacion.Text
            obj_ensayo03.palpador = txt_palpador.Text
            obj_ensayo03.palpadorposicion = txt_palpadorposicion.Text
            obj_ensayo03.sonico = txt_sonico.Text
            obj_ensayo03.x = txt_x.Text
            obj_ensayo03.y = txt_y.Text
            obj_ensayo03.z = txt_z.Text
            obj_ensayo03.longitud = chk_longitud.Checked
            obj_ensayo03.transversal = chk_transversal.Checked
            obj_ensayo03.superficieplana = chk_superficieplana.Checked
            obj_ensayo03.exesonivelregistro = txt_exesonivelregistro.Text
            obj_ensayo03.registrolongitud = txt_registrolongitud.Text
            obj_ensayo03.resultado = chk_resultado1.Checked


            obj_ensayo03.croquis = pic_croquis.Image
            obj_ensayo03.croquisnotas = txt_croquisnotas.Text
            obj_ensayo03.notas = txt_notas.Text
            obj_ensayo03.informeestado = opt_informeestado.SelectedIndex
            obj_ensayo03.evaluadorfecha = dtp_fechaEvaluador.DateTime
            obj_ensayo03.inspectorfecha = dtp_fechaInspector.DateTime
            obj_ensayo03.idinspector = cbo_inspector.EditValue
            obj_ensayo03.idevaluador = cbo_evaluador.EditValue
            obj_ensayo03.idusuariorealizado = cbo_realizado.EditValue
            obj_ensayo03.idusuarioingresado = cbo_ingresado.EditValue

            If txt_ID.Text = "" Then
                obj_ensayo03.Nuevo(True)
                If frm_listado.Visible Then
                    ulg_row = CType(frm_listado, xtf_LISTADOensayo03_).AgregarItem(obj_ensayo03)
                End If
                Modificar(obj_ensayo03, frm_listado, ulg_row)
            Else
                obj_ensayo03.Modificar()
                If frm_listado.Visible Then
                    CType(frm_listado, xtf_LISTADOensayo03_).ModificarItem(obj_ensayo03, ulg_row)
                End If
                Modificar(obj_ensayo03, frm_listado, ulg_row)
            End If
            flg_Modificado = False : btn_Guardar.Enabled = False : bbi_guardar.Enabled = False
        End If
    End Sub

    Private Sub btn_Registro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Registro.Click
        If Not IsNothing(obj_ensayo03.registro) Then
            Dim ABMRegistro As New xtf_ABMRegistro(obj_ensayo03.registro)
            If ABMRegistro.ShowDialog() = Windows.Forms.DialogResult.OK Then
                flg_Modificado = True
            End If
        End If
    End Sub


    Private Sub btn_Cerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cerrar.Click
        If flg_Modificado Then
            bol_comprobarCerrado = False
            Select Case ErrManagerShow("000001", Me)
                Case Windows.Forms.DialogResult.Yes
                    If ComprobarDatos() Then
                        btn_Guardar_Click(Nothing, Nothing)
                    Else
                        Exit Sub
                    End If
                Case Windows.Forms.DialogResult.Cancel : bol_comprobarCerrado = True
                    Exit Sub
            End Select
        End If
        Me.Dispose()
    End Sub

    Private Sub cbo_centrocostoorden_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_centrocostoorden.EditValueChanged
        Cargarequipo_()
        Dim obra As New cls_centrocostoorden_
        If obra.Buscar(cbo_centrocostoorden.EditValue) Then
            cbo_cliente.EditValue = obra.idcliente
        Else
            cbo_cliente.EditValue = Nothing
        End If

    End Sub

    Private Function generarReporte() ' As xtr_REPORTEensayo03
        'Dim report As New xtr_REPORTEensayo03
        'report.lbl_numero.Text = "Informe: " & txt_informe.Text
        'report.lbl_fecha.Text = "Fecha: " & Format(dtp_fecha.DateTime, "dd/MM/yyyy")
        'report.lbl_cliente.Text = cbo_cliente.Text
        'report.lbl_centrocostoorden.Text = cbo_centrocostoorden.Text
        'report.lbl_equipo.Text = cbo_equipo.Text
        'report.lbl_componenteensayar.Text = cbo_componenteensayar.Text
        'report.lbl_identificacion.Text = txt_identificacion.Text
        'report.lbl_procedimiento.Text = txt_procedimiento.Text
        'report.lbl_norma.Text = cbo_norma.Text
        'report.lbl_criterio.Text = cbo_criterio.Text
        'report.lbl_condicionsuperficial.Text = cbo_condicionsuperficial.Text
        'report.lbl_limpieza.Text = cbo_limpieza.Text
        'report.lbl_magnetizaciontecnica.Text = cbo_magnetizaciontecnica.Text
        'report.lbl_magnetizacioncorriente.Text = cbo_magnetizacioncorriente.Text
        'report.lbl_magnetizacionequipo.Text = cbo_magnetizacionequipo.Text
        'report.lbl_particulatipo.Text = cbo_particulatipo.Text
        'report.lbl_color.Text = cbo_color.Text
        'report.lbl_marca.Text = cbo_marca.Text
        'report.lbl_aplicacion.Text = cbo_aplicacion.Text
        'report.lbl_tipoiluminacion.Text = cbo_iluminaciontipo.Text
        'report.pic_croquis.Image = pic_croquis.Image
        'report.lbl_croquisnotas.Text = txt_croquisnotas.Text
        'report.lbl_notas.Text = txt_notas.Text

        'report.lbl_fechainspector.Text = "Fecha: " & Format(dtp_fechaInspector.DateTime, "dd/MM/yyyy")
        'report.lbl_fechaevaluador.Text = "Fecha: " & Format(dtp_fechaEvaluador.DateTime, "dd/MM/yyyy")
        'report.lbl_inspector.Text = cbo_inspector.Text
        'report.lbl_evaluador.Text = cbo_evaluador.Text

        'Dim ensayosubtipo As New cls_ensayosubtipo_
        'If ensayosubtipo.BuscarXidmodulo("001072001") Then
        '    report.lbl_nombreinforme.Text = ensayosubtipo.nombreinforme
        'End If

        'If System.IO.File.Exists(config_empresa.logochico) Then
        '    Dim logoempresa As Image = Image.FromFile(config_empresa.logochico)
        '    report.pic_empresaLogo.Image = logoempresa
        'End If

        'Select Case opt_informeestado.SelectedIndex
        '    Case 0
        '        report.shp_aceptado.FillColor = Color.Black
        '    Case 1
        '        report.shp_observado.FillColor = Color.Black
        '    Case 2
        '        report.shp_rechazado.FillColor = Color.Black
        'End Select
        'Return report
    End Function

    Public Overrides Sub bbi_imprimir_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs)
        generarReporte.ShowPreview()
    End Sub

    Private Sub bbi_pdf_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_pdf.ItemClick
        Dim dialog As New SaveFileDialog
        dialog.Filter = "Documento PDF(*.pdf)|*.pdf"
        Dim ensayosubtipo As New cls_ensayosubtipo_
        If ensayosubtipo.BuscarXidmodulo("001072001") Then
            dialog.FileName = ensayosubtipo.nombreinforme
        End If
        If dialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            generarReporte.ExportToPdf(dialog.FileName)
        End If
    End Sub

    Private Sub opt_obra_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opt_obra.SelectedIndexChanged
        Cargarcentrocostoorden_()
    End Sub

    Private Sub cbo_idequipoEND_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_idequipoEND.EditValueChanged
        Dim equipoEND As New cls_equipoEND_
        If equipoEND.Buscar(cbo_idequipoEND.EditValue) Then
            txt_equipoENDserie.Text = equipoEND.serie
        Else
            txt_equipoENDserie.Text = ""
        End If
    End Sub
End Class


Class Label90
    Inherits Label


    Public Sub New()
        MyBase.New()

        'Set the control to be a user painted control 
        Me.SetStyle(ControlStyles.UserPaint, True)

    End Sub


    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)

        'Create a string format 
        Dim sf As New StringFormat
        sf.Alignment = StringAlignment.Center
        sf.LineAlignment = StringAlignment.Center

        'Determine the size of the string we are dealing with 
        Dim StringSize As Drawing.SizeF
        StringSize = e.Graphics.MeasureString(Me.Text, Me.Font)

        'Rotate our canvas
        e.Graphics.RotateTransform(270)

        'Draw the string 
        e.Graphics.DrawString(Me.Text, Me.Font, New SolidBrush(Me.ForeColor), Me.Height / -2, StringSize.Height / 2, sf)





    End Sub
End Class

